Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)

    Dim Ʈ As Worksheet
    Dim Ʈ As Worksheet
    Dim ġ As Long
    Dim ġ As Long
    Dim ùּ As String
    
    Set Ʈ = ActiveSheet
    Set Ʈ = Sh
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
        Ʈ.Activate
        
        With ActiveWindow
            
            ġ = .ScrollColumn
            ġ = .ScrollRow
        
        End With
        
        ùּ = Selection.Address
        
        Ʈ.Activate
        
        With ActiveWindow
            
            .ScrollColumn = ġ
            .ScrollRow = ġ
        
        End With
        
        Range(ùּ).Select
        
    Application.EnableEvents = True
    Application.ScreenUpdating = True

End Sub
